home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / AESEVNT3.S < prev    next >
Text File  |  1993-03-10  |  803b  |  32 lines
  1.  
  2. ;*========================================================================
  3. ;*
  4. ;* AESFAST Public Domain GEM bindings.
  5. ;*
  6. ;*========================================================================
  7.  
  8.  
  9. ;*************************************************************************
  10. ;*
  11. ;* Event manager routines 4 of n.
  12. ;*
  13. ;*************************************************************************
  14.  
  15. ;-------------------------------------------------------------------------
  16. ; evnt_timer
  17. ;-------------------------------------------------------------------------
  18.  
  19.           globl     _evnt_timer
  20. _evnt_timer:
  21. ;          .cargs    #4,countlo,counthi
  22.  
  23. countlo         =    4
  24. counthi         =    6
  25.  
  26.           move.l    #$18020100,d0       ; AControl  24,2,1,0
  27.           lea        countlo(sp),a1       ; -> intin
  28.           jmp        aes_do
  29.  
  30. ;          end of code
  31.  
  32.